Bom dia!!

Segue uma parte!!

Faça os teste, essa rotina vai deletar caso encontre na Sheet1, e deletar.

Sub DeletarCorrespAleVBA()
Dim vW As Variant
Dim fR As Range
Dim lngCounter As Long

For lngCounter = 2 To 3
  vW = Sheets("Sheet2").Cells(lngCounter, "A").Value
  With Sheets("Sheet1")
      Set fR = .Range("A:F").Find(what:=vW, after:=.Range("A1"), LookIn:=xlFormulas, lookat:=xlWhole)
      If Not fR Is Nothing Then
          fR.Resize(1, 6).Delete shift:=xlUp
      Else
          MsgBox "Não encontrado " & vW
      End If
  End With
Next lngCounter
End Sub

Está perfeito Alex. Fiz o teste em meu arquivo e funciona na perfeição. Agora está só faltando a parte de alterar caso encontre.

Muito obrigado

Boa tarde!!

Considere como a terceira parte.

Option Explicit

Sub Parte_III()
    
    Dim x, K1 As Range, K2, i As Long, r As Long
    
    Set K1 = Sheet1.Range("a1").CurrentRegion.Columns(1)
    K2 = Sheet2.Range("a1").CurrentRegion.Value2
    
    r = K1.Rows.Count
    For i = 2 To UBound(K2, 1)
        x = Application.Match(K2(i, 1), K1.Value2, 0)
        If IsError(x) Then
            K1.Cells(1).Offset(r).Resize(, UBound(K2, 2)) = Application.Index(K2, i, 0)
            r = r + 1
        End If
    Next
    
End Sub

Foi primeiramente para Substituir, depois para Deleltar e agora Inserir
Att

Valeu Alex. Está tudo perfeito! Mas não entendo bem os códigos. Já agora, quando você me enviou a parte de substituir, apenas consideravamos uma linha. Agora temos duas linhas para substituir. Está dificil de adaptar... =(

Boa noite!!

Já agora, quando você me enviou a parte de substituir, apenas consideravamos uma linha. Agora temos duas linhas para substituir. Está dificil de adaptar...

Mas não era isso, que você queria???

Att

Não. Inicialmente eu tinha uma linha. Mas depois, começámos a trabalhar com duas linhas. Então para inserir as duas linhas está tudo perfeito. Para Deletar duas linhas também. Mas se eu quiser alterar e substituir as duas linhas não tenho como.

Alex,

Novidades?

Boa tarde!!

Considere como a terceira parte.

Option Explicit

Sub Parte_III()
    
    Dim x, K1 As Range, K2, i As Long, r As Long
    
    Set K1 = Sheet1.Range("a1").CurrentRegion.Columns(1)
    K2 = Sheet2.Range("a1").CurrentRegion.Value2
    
    r = K1.Rows.Count
    For i = 2 To UBound(K2, 1)
        x = Application.Match(K2(i, 1), K1.Value2, 0)
        If IsError(x) Then
            K1.Cells(1).Offset(r).Resize(, UBound(K2, 2)) = Application.Index(K2, i, 0)
            r = r + 1
        End If
    Next
    
End Sub

Foi primeiramente para Substituir, depois para Deleltar e agora Inserir
Att

Alexandre,

Está tudo funcionando lindamente. O único problema é na parte de substituir. Não consigo meter funcionando em duas linhas. Assim, só substitui a primeira linha. Eu normalmente faço as alterações na segunda linha e assim a macro não copia a segunda linha, apenas a primeira...
Será que consegue dar um jeito? Preciso que ela pegue nas duas linhas, procure na base de dados e substitua pelo que ha la com o mesmo numero.

Segue uma possibilidade

Sub Parte_III()
       
Dim x As Long, i As Long
Sheets("Sheet1").Activate
i = Sheet1.Cells(Cells.Rows.Count, "A").End(xlUp).Row

x = Application.Match(Sheet2.Range("a2").Value, Sheet1.Range("A:A"), 0)
            If IsError(x) Then
                Sheet2.Range("A2:F3").Copy
                Range("A" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
            Else
                Sheet2.Range("A2:F3").Copy
                Range("A" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
            End If
End Sub

Reinaldo,

muito obrigado pela contribuição, mas não está funcionando. Eu pretendo conforme o ficheiro que envio...Funciona quase na perfeição, mas não estou conseguindo adaptar para as duas linhas! Só dá para uma.

Entendi que é para usar os valores de sheet2, e acrescentar ou modificar na sheet1, não é isso?

Isso mesmo Reinaldo. Eu quero chamar para a sheet 2 um processo qualquer através do número que está na celula A2. Depois, faço as alterações que quiser, tanto na linha 1 como na linha 2. E depois quero inserir essas duas linhas (se aquele número ainda não existir) ou modificar (o que já existe)... Está entendendo? Mas como o Alexandre já me devolveu todos os passos, agora só preciso do passo "substituir", porque "acrescentar" o Alex já me deu o código que deverei utilizar! No ficheiro que enviei em anexo, o código para substituir apenas está a fazer isso numa linha.. e eu preciso nas duas!

Começo a desesperar para encontrar esta solução! =(

Pelo que vejo, não tem solução para isto não...

Boa noite!!

Veja se é isso

Sub VaiDarcerto()

    Dim Cell As Range
    Dim DstRng As Range
    Dim Ids As Collection
    Dim n As Long, r As Long
    Dim RngEnd As Range
    Dim SrcRng As Range
    
        Set Ids = New Collection
        
        Set DstRng = Sheet1.Range("A2")
        Set SrcRng = Sheet2.Range("A2")
        
            Set RngEnd = DstRng.Parent.Cells(Rows.Count, DstRng.Column).End(xlUp)
            If RngEnd.Row < DstRng.Row Then Exit Sub
            
            Set DstRng = DstRng.Resize(RngEnd.Row - DstRng.Row + 1)
        
            Set SrcRng = SrcRng.CurrentRegion
            Set SrcRng = Intersect(SrcRng, SrcRng.Offset(1, 0))
        
            For Each Cell In SrcRng.Columns(1).Cells
                On Error Resume Next
                    Ids.Add Cell.Row - SrcRng.Row + 1, Cell.Text
                On Error GoTo 0
            Next Cell
    
            n = SrcRng.Columns.Count
        
            For Each Cell In DstRng.Columns(1).Cells
                On Error Resume Next
                    r = Ids(Cell.Text)
                    If Err = 0 Then Cell.Resize(1, n).Value = SrcRng.Rows(r).Value
                On Error GoTo 0
            Next Cell
        
End Sub